(command-line): Use normal-erase-is-backspace and

normal-erase-is-backspace-mode.

diff --git a/lisp/startup.el b/lisp/startup.el
index 47fd84332d298ccf09ff80b8b4820c9055344c6c..719f127d43e7604b644e8c39edd1390b1fbcd8dd 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -780,8 +780,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
              (and (memq window-system '(x))
                   (fboundp 'x-backspace-delete-keys-p)
                   (x-backspace-delete-keys-p)))
-      (setq-default delete-key-deletes-forward t)
-      (delete-key-deletes-forward-mode 1)))
+      (setq-default normal-erase-is-backspace t)
+      (normal-erase-is-backspace-mode 1)))
 
   (when (and (not noninteractive)
             (display-graphic-p)